'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e : 	 W X M _ D i g i C l a m p _ 1 . t x t                                       D a t e :   2 2   A u g u s t   2 0 2 0 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O   P h . D . 
 
 '         S c o p e :   D i g i t a l   g r i p p e r 
 
 ' 
 
 '   H a r d w a r e :   S t a n d a r d   T h e r e m i n o   M a s t e r   a n d   T h e r e m i n o   C u r r e n t   S e n s o r 
 
 ' 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 L o a d   i m a g e s \ D i g i C l a m p . j p g 
 
 ' L o a d   s o u n d \ g o n g . w a v 
 
 O p t i o n   S p e e d   9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S l o t s 
 
 S l o t _ C l a m p P u s h B u t t o n   =   6 
 
 S l o t _ R o b o C l a m p C o m m a n d   =   1 3 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 B u t t o n     1   T e x t     C L A M P 
 
 B u t t o n     1   C o l o r   Y e l l o w 
 
 B u t t o n     1   S l o t     S l o t _ C l a m p P u s h B u t t o n 
 
 
 
 B u t t o n     2   T e x t     " P R E S S U R E   " 
 
 B u t t o n     2   C o l o r   P a l e G o l d e n r o d 
 
 
 
 B u t t o n     5   T e x t     C L O S E   A L L 
 
 B u t t o n     5   C o l o r   R e d 
 
 
 
 G o s u b   D i s a b l e A l l B u t t o n s 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   E X T E R N A L   P R O G R A M S 
 
 L o a d   " T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e " 
 
 ' L o a d   " M i c r o v i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e " 
 
 L o a d   " T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e " 
 
 L o a d   " R o b o C l a m p \ R o b o C l a m p . e x e " 
 
 ' L o a d   " T h e r e m i n o _ G a m e P a d \ T h e r e m i n o _ G a m e P a d \ T h e r e m i n o _ G a m e P a d . e x e " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T E S T   M A S T E R   P R E S E N T 
 
 ' F o r   v 1   =   1   T o   9 e 9 9 
 
 ' 	 F o r   v 2   =   1   T o   2 0   '   < < <   t e s t i n g   f o r   2   s e c o n d s 
 
 ' 	 	 I f   ( S l o t ( 0 )   > =   1   A n d   S l o t ( 0 )   < =   2 )   O r   K e y ( " C T R L " ) 
 
 ' 	 	 	 E x i t   2 
 
 ' 	 	 E n d I f 
 
 ' 	 	 W a i t   S e c o n d s   0 . 1 
 
 ' 	 N e x t 
 
 ' 	 P r i n t   "   I n v a l i d   m a s t e r   n u m b e r :   "   +   S l o t ( 0 ) 
 
 ' 	 S l o t   0   =   R e c o g n i z e 
 
 ' 	 B e e p 
 
 ' N e x t 
 
 ' P r i n t   " " 
 
 
 
 G o s u b   E n a b l e A l l B u t t o n s 
 
 L o a d   H i d e 
 
 
 
 G o t o   L o o p F o r E v e r 
 
 
 
 ' > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > 
 
 S t o p 	 	 	 	   ' < < < < < < < < < < < < < <   S T O P   > > > > > > > > > > > > > > 
 
 ' > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     V A R I A B L E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ C l a m p P u s h B u t t o n 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o b o C l a m p C o m m a n d 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '   E N A B L E / D I S A B L E   B U T T O N S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E n a b l e A l l B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   E n a b l e d 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   D i s a b l e A l l B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   D i s a b l e d 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C L O S I N G   E V E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   C L O S E   A L L 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 G o s u b   E n a b l e A l l B u t t o n s 
 
 E n d 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     F U N C T I O N S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   C L A M P 
 
 	 S l o t   S l o t _ R o b o C l a m p C o m m a n d   =   1 0 0 0 
 
 	 B u t t o n   1   T e x t   R E L E A S E 
 
 	 B u t t o n   1   C o l o r   F l a s h i n g 7   O r a n g e   Y e l l o w 
 
 R e t u r n 
 
 
 
 L a b e l   R E L E A S E 
 
 	 S l o t   S l o t _ R o b o C l a m p C o m m a n d   =   0 
 
 	 B u t t o n   1   C o l o r   Y e l l o w 
 
 	 B u t t o n   1   T e x t   C L A M P 
 
 R e t u r n 
 
 
 
 L a b e l   L o o p F o r E v e r 
 
 	 W a i t   s e c o n d s   0 . 0 1 
 
 	 v 1   =   S l o t ( 2 ) 
 
 	 B u t t o n   2   T e x t   " P r e s s u r e = "   +   I n t ( v 1 ) 
 
 G o t o   L o o p F o r E v e r 
 
 
 
 ' L a b e l   E v e n t T i m e r 
 
 ' 	 v 1   =   S l o t ( 2 ) 
 
 ' 	 v 1   =   I n t ( v 1 ) 
 
 ' 	 B u t t o n   2   T e x t   v 1 
 
 ' R e t u r n 
 
 
 
 
 
 ' W A T C H   S l o t M o t o r 
 
 ' W A T C H   A b s ( S l o t ( S l o t M o t o r ) ) 
 
 ' W A T C H   v 1 
 
 ' W A T C H   L o a d 
 
 ' E X E C   S i n 2   =   S i n ( 3 3 ) 
 
 